home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / club xmas card (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  51 lines
  1. 1 PRINT"[147]":POKE53281,1:POKE53280,2:C=0
  2. 2 GOSUB5000
  3. 3 PRINT"[159][147]":POKE53280,0:POKE53281,0
  4. 40 PRINT"      .      .      .          . "
  5. 50 PRINT"  .                    .           ."
  6. 60 PRINT"           .[151]  [215]      .      .             .  "
  7. 70 PRINT"            [151][215]      .            .       .      . "
  8. 80 PRINT"     [151]      [215]    .         .      .   "
  9. 90 PRINT"        [159]   [162]             "
  10. 100 PRINT" .[159]      [175][175][175][166][175][175][175][175][175][175][175][175][175][175][175]    .   .[159]"
  11. 110 PRINT"    .[159]  [206][177][177][177][166][177][177][177][177][177][177][177][177][177][177][206][205]            ."
  12. 120 PRINT". [159]    [206][213][213][213][213][166][213][213][213][213][213][213][213][213][213][159][206][183][183][205]      ."
  13. 130 PRINT"    [159] [206][213][213][213][213][213][213][213][213][213][213][213][213][213][213][159][206][183][183][183][183][205]      [169][223]"
  14. 140 PRINT"    [206][213][213][213][213][213][213][213][213][213][213][213][213][213][213][159][206][183][183][183][183][183][183][205]    [169]  [223][146]  ."
  15. 150 PRINT".[159]   [208][149][183][183][207][208][149][183][152][207][208][149][183][207][183][207][208][149][183][183][183][207][183][183][183][183][183][146][159][207]  . [169]  [223]"
  16. 160 PRINT"[159]    [170][149]  [183][183] [152][180][170][149] [183][183][183][183]   [180]     [146][159][180]   [169]    [223]"
  17. 170 PRINT"[159]    [170][129][166][166][166][166][166][152][204][186][129][166][166][166][166][166][166][166][166][166][166][166][166][166][166][146][159][180]      [152][161][146]"
  18. 180 PRINT"[159]     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  19. 183 PRINT"[162][185][185][185][185][185][175][175][175][175][162][185][175][162][162][175][175][175][185][175][175][175][175][175][175][175][175][175][162][162][162][162][162][162][185][185][185][185][175][162]"
  20. 185 PRINT""
  21. 200 FORX=1TO500:NEXT
  22. 210 PRINT"   MERRY CHRISTMAS & HAPPY NEW YEAR           "
  23. 220 FORX=1TO900:NEXT
  24. 230 PRINT" FROM: COMMODORE USERS OF NORMAN CLUB"
  25. 235 FORX=1TO900:NEXT
  26. 237 C=C+1:IFC=10THEN1
  27. 239 POKE53265,PEEK(53265)OR16
  28. 240 GOTO210
  29. 5000 PRINT"[147]"
  30. 5010 POKE53265,PEEK(53265)AND247
  31. 5020 FORX=1TO24:PRINTCHR$(17):NEXTX
  32. 5030 POKE53265,(PEEK(53265)AND248)+7:PRINT
  33. 5040 PRINT"  HELLO & WELCOME TO THE";;
  34. 5050 FORP=6TO0STEP-.5
  35. 5060 POKE53265,(PEEK(53265)AND248)+P
  36. 5065 FORY=1TO900:NEXTY
  37. 5070 POKE53265,(PEEK(53265)AND248)+7:PRINT
  38. 5080 PRINT"     COMMODORE USERS OF NORMAN,";;
  39. 5090 FORP=6TO0STEP-.5
  40. 5100 POKE53265,(PEEK(53265)AND248)+P
  41. 5105 FORY=1TO900:NEXTY
  42. 5110 POKE53265,(PEEK(53265)AND248)+7:PRINT
  43. 5120 PRINT"    NOVEMBER MEETING.";;;
  44. 5130 FORP=6TO0STEP-.5
  45. 5140 POKE53265,(PEEK(53265)AND248)+P
  46. 5150 FORY=1TO900:NEXTY
  47. 5165 PRINT"";;
  48. 5166 FORX=1TO1500:NEXTX
  49. 5170 POKE53265,PEEK(53265)AND239
  50. 5180 RETURN
  51.